F1 Licenseware/F1 Licenseware - Volume 1.iso/disks/045.dms/045.adf/str/DST1

Text File | 1989-08-17 | 292b | 1 lines

AU ( I RC>63 D A; X);A: L X=RX; L Y=RY; I RC=64 J B;L R0=RX+8 ;L R0=R0/32;L R0=R0-1;L R1=RX-8 ;L R1=R1/32;L R1=R1-1;L R2=RY+8 ;L R2=R2/32;L R2=R2+1;L R2=R2*8;L R3=RY-8 ;L R3=R3/32;L R3=R3+1;L R3=R3*8;L R0=R0+R2; L R1=R1+R3;I BC(0,R0,R0) J C; I R1>63 J U;I BC(0,R1,R1) J C;U: L RC=0; W;C: L RC